      DOUBLE PRECISION UPSI,UPSI0,UPSI1,UPSIST,PSI,PSI0,
     F    PSI1,PSIST,PSIMIN,
     F    PHI,PHI0,PHI1,PHIMIN,FX,FX0,FX1,
     F    FXST,FMIN,B2N,B2N0,XNORM,X0NORM,SIG0,DSCAL,DNORM,D0NORM
      DOUBLE PRECISION SIG,SIGMIN,DIRDER,COSPHI,UPSIM
      DOUBLE PRECISION X,X0,X1,XMIN,D,D0,DD,DIFX,RESMIN
      COMMON/O8XDAT/X(NX),X0(NX),X1(NX),XMIN(NX),RESMIN(NRESM),
     F             D(NX),D0(NX),DD(NX),DIFX(NX),
     F             XNORM,X0NORM,DNORM,D0NORM,SIG,SIG0,SIGMIN,DSCAL,
     F             UPSI,UPSI0,UPSI1,UPSIST,UPSIM,
     F             PSI,PSI0,PSI1,PSIST,PSIMIN,
     F             PHI,PHI0,PHI1,PHIMIN,
     F             FX,FX0,FX1,FXST,FMIN,
     F             B2N,B2N0,DIRDER,COSPHI
